Option Explicit

' 工具执行前，设置当前正在运行中的 excel 进程的环境配置，提升执行的速度
Public Sub init()
    ' 关闭屏幕刷新
    Application.ScreenUpdating = False
    ' 关闭兼容性检查
    ActiveWorkbook.CheckCompatibility = False
    ' 关闭自动计算
    Application.Calculation = xlCalculationManual
    ' 关闭提示
    Application.DisplayAlerts = False
End Sub

' 工具执行后，恢复当前正在运行中的 excel 进程的环境配置
Public Sub destory()
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    ActiveWorkbook.CheckCompatibility = True
    Application.ScreenUpdating = True
End Sub

' 工具执行前，为参数中的 Application 对象（excel 进程）做环境配置，提升执行的速度
' @param app excel 进程对象
Public Sub initAppEnv(ByRef app As Excel.Application)
    ' 关闭屏幕刷新
    app.ScreenUpdating = False
    ' 关闭兼容性检查
    app.ActiveWorkbook.CheckCompatibility = False
    ' 关闭自动计算
    app.Calculation = xlCalculationManual
    ' 关闭提示
    app.DisplayAlerts = False
End Sub

' 工具执行后，为参数中的 Application 对象（excel 进程）恢复环境配置，提升执行的速度
' @param app excel 进程对象
Public Sub destoryAppEnv(ByRef app As Excel.Application)
    app.DisplayAlerts = True
    app.Calculation = xlCalculationAutomatic
    app.ActiveWorkbook.CheckCompatibility = True
    app.ScreenUpdating = True
End Sub